Precision Software Appli…tions Silver Collection 1/Precision Software Applications Silver Collection Volume One (PSM) (1993).iso/tutor/clipper.exe/DEPRO.PRG

Text File | 1985-06-16 | 2KB | 61 lines

* Update Procedure File
*
* User Error Message Display Module.
PROCEDURE ERROR
  Parameters Line,Col,Message
  Message = ' ══ '+Message+' '
  fin = val(substr(time(),7,2))+3
  if fin > 59
    fin = fin - 60
  endif
  set color to */w
  @ Line,Col say Message
  do while fin > val(substr(time(),7,2))
  enddo
  set color to w/,/w
  @ Line,Col say space(len(Message))
return
*
*
* General Screen Boarder
PROCEDURE SCRBOARD
  clear
  @ 1,0 SAY "╔══════════════════════════════════════════════════════════════════════════════╗"
  @ 2,0 SAY "║"
  @ 2,79 SAY "║"
  @ 3,0 SAY "╚══════════════════════════════════════════════════════════════════════════════╝"
  @ 4,0 SAY "┌──────────────────────────────────────────────────────────────────────────────┐"
  @ 5,0 SAY "│"
  @ 5,79 SAY "│"
  @ 6,0 SAY "│"
  @ 6,79 SAY "│"
  @ 7,0 SAY "│"
  @ 7,79 SAY "│"
  @ 8,0 SAY "│"
  @ 8,79 SAY "│"
  @ 9,0 SAY "│"
  @ 9,79 SAY "│"
  @ 10,0 SAY "│"
  @ 10,79 SAY "│"
  @ 11,0 SAY "│"
  @ 11,79 SAY "│"
  @ 12,0 SAY "│"
  @ 12,79 SAY "│"
  @ 13,0 SAY "│"
  @ 13,79 SAY "│"
  @ 14,0 SAY "│"
  @ 14,79 SAY "│"
  @ 15,0 SAY "│"
  @ 15,79 SAY "│"
  @ 16,0 SAY "│"
  @ 16,79 SAY "│"
  @ 17,0 SAY "│"
  @ 17,79 SAY "│"
  @ 18,0 SAY "│"
  @ 18,79 SAY "│"
  @ 19,0 SAY "├──────────────────────────────────────────────────────────────────────────────┤"
  @ 20,0 SAY "│"
  @ 20,79 SAY "│"
  @ 21,0 SAY "└──────────────────────────────────────────────────────────────────────────────┘"
RETURN